home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / examples / penshow.st < prev    next >
Text File  |  1986-10-19  |  842b  |  50 lines
  1. "
  2.     this is useful only if the plot(3) routines work
  3. "
  4. Class Main
  5. | bic show |
  6. [
  7.     init
  8.         bic <- Pen new.
  9.         show <- PenShow new.
  10.         show withPen: bic.
  11.         bic extent: 0 @ 0 to: 500 @ 500.
  12. |
  13.     main
  14.         self init.
  15.         self polyShow.
  16.         self spiralShow.
  17.         self formShow.
  18. |
  19.     polyShow
  20.         bic erase.
  21.         bic up.
  22.         bic goTo: 50 @ 50.
  23.         bic down.
  24.         (3 to: 8) do: [:i |
  25.             show poly: i length: 10 ].
  26. |
  27.     spiralShow
  28.         bic erase.
  29.         bic up.
  30.         bic goTo: 250 @ 250.
  31.         bic down.
  32.         show spiral: 150 angle: 89
  33. |
  34.     formShow    | newForm saveBic |
  35.         newForm <- Form new.
  36.         saveBic <- bic.
  37.         bic <- PenSave new.
  38.         bic setForm: newForm.
  39.         bic direction: 0.0.
  40.         bic down.
  41.         show withPen: bic.
  42.         self polyShow.
  43.         bic <- saveBic.
  44.         bic down.
  45.         newForm with: bic displayAt: -15 @ ( -15 ).
  46.         newForm with: bic displayAt: 0 @ 0.
  47.         newForm with: bic displayAt: 20 @ ( -20 ).
  48.         ^ newForm
  49. ]
  50.